---
title: Slide.Tags Property (PowerPoint)
keywords: vbapp10.chm531017
f1_keywords:
- vbapp10.chm531017
ms.prod: powerpoint
api_name:
- PowerPoint.Slide.Tags
ms.assetid: 2869e5db-3355-0747-633b-2da430667e5b
ms.date: 06/08/2017
---


# Slide.Tags Property (PowerPoint)

Returns a  **[Tags](tags-object-powerpoint.md)** object that represents the tags for the specified object. Read-only.


## Syntax

 _expression_. **Tags**

 _expression_ A variable that represents a **Slide** object.


### Return Value

Tags


## Example


 **Note**  Tag values are added and stored in uppercase text. You should perform tests on tag values using uppercase text, as shown in the second example.

This example adds a tag named "REGION" and a tag named "PRIORITY" to slide one in the active presentation.


```vb
With Application.ActivePresentation.Slides(1).Tags

    .Add "Region", "East"     'Adds "Region" tag with value "East"

    .Add "Priority", "Low"    'Adds "Priority" tag with value "Low"

End With
```

This example searches through the tags for each slide in the active presentation. If there's a tag named "PRIORITY," a message box displays the tag value. If the object doesn't have a tag named "PRIORITY," the example adds this tag with the value "Unknown."




```vb
For Each s In Application.ActivePresentation.Slides

    With s.Tags

        found = False

        For i = 1 To .Count

          If .Name(i) = "PRIORITY" Then

              found = True

              slNum = .Parent.SlideIndex

              MsgBox "Slide " &; slNum &; " Priority: " &; .Value(i)

          End If

        Next

        If Not found Then

          slNum = .Parent.SlideIndex

          .Add "Priority", "Unknown"

          MsgBox "Slide " &; slNum &; " Priority tag added: Unknown"

        End If

    End With

Next
```


## See also


#### Concepts


[Slide Object](slide-object-powerpoint.md)

